home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aaw.d64 / events2 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  213 lines
  1. 0 PRINT"[147]":POKE53280,8:POKE53281,0
  2. 1 PRINTTAB(17)"[156]EVENTS[158]":PRINTTAB(17)"[210][210][210][210][210][210]":PRINTTAB(6)"1. CALENDAR
  3. 2 [153][163]6)"2. NUMBER OF DAYS BETWEEN DATES":[153][163]6)"3. A DECISION MAKER
  4. 3 PRINTTAB(6)"4. COMPOUND INTEREST RATE":PRINTTAB(6)"5. COMPOUND INTEREST YEARS
  5. 4 [153][163]4)"'\' RETURNS MENU OR ENDS PROGRAMPRINT":[153][163]13)"YOUR CHOICE ?
  6. 5 GETE$:IFE$=""THEN5
  7. 6 IFE$="1"THENPRINTTAB(13)"1":FORR=0TO2000:NEXT:RUN20
  8. 7 IFE$="2"THENPRINTTAB(13)"2":FORR=0TO2000:NEXT:RUN2000
  9. 8 IFE$="3"THENPRINTTAB(13)"3":FORR=0TO2000:NEXT:RUN3000
  10. 9 IFE$="4"THENPRINTTAB(13)"4":FORR=0TO2000:NEXT:RUN4000
  11. 10 IFE$="5"THENPRINTTAB(13)"5":FORR=0TO2000:NEXT:RUN5000
  12. 11 IFE$="\"THENPRINT"\":FORR=0TO2000:NEXT:PRINT"[147]END":END
  13. 12 GOTO5
  14. 20 FORU=54272TO54296:POKEU,0:NEXT
  15. 30 POKE54296,15:POKE54277,8:POKE54278,40
  16. 40 POKE53280,10:POKE53281,0
  17. 50 POKE646,INT(15*RND(0)+1):INPUT"[147]START YEAR";Y$:PRINT"
  18. 53 [139]Y$[178]"\"[167][138]0
  19. 56 Y[178][197](Y$)
  20. 60 [139]Y[179]1589[167]50
  21. 70 [153]"IF 'AUTO-VIEW'CLOSEIS DESIRED, PRESS'A'.     IF NOT, PRESS THE SPACE-BAR
  22. 80 GETA$:IFA$=""THEN80
  23. 85 IFA$=" "THEN110
  24. 90 IFA$="A"THEN95
  25. 92 GOTO80
  26. 95 INPUT"[153]STOP AT WHAT YEAR ";Y1
  27. 96 IFY1<=YTHEN50
  28. 100 INPUT"HOW MANY SECONDS 'TIL MONTHS CHANGE";I:PRINT"":GOTO115
  29. 110 PRINT"[147]PRESS SPACE-BAR TO VIEW SUCCESSIVE         MONTHS":GOTO120
  30. 115 PRINT"PRESS 'S' TO RESTART BEFORE REACHING"TAB(55)Y1
  31. 120 PRINTTAB(9)"'\' RETURNS THE MENU":FORR=0TO5000:NEXT
  32. 121 PRINT"[147]
  33. 125 D[178]1
  34. 130 M[178]1
  35. 140 MM[178]M
  36. 150 [139]M[177]2[167]170
  37. 160 MM[178]M[170]12:YY[178]Y[171]1
  38. 170 F[178]D[170]2[172]MM[170][181](.6[172](MM[170]1)[170]YY)[170][181](YY[173]4)[171][181](YY[173]100)[170][181](YY[173]400)[170]2
  39. 190 F[178]F[171]7
  40. 200 [139]F[177]7[167]190
  41. 210 [139]M[178]1[167]NN[178]31:M$[178]"CLOSEJANUARY"
  42. 220 [139]Y[173]100[178][181](Y[173]100)[175]Y[173]400[179][177][181](Y[173]400)[167][141]810
  43. 230 [139]M[178]2[175]Y[173]4[178][181](Y[173]4)[167]NN[178]29:M$[178]"FEBRUARY"
  44. 240 [139]M[178]2[175]Y[173]4[179][177][181](Y[173]4)[167]NN[178]28:M$[178]"FEBRUARY"
  45. 250 [139]M[178]3[167]NN[178]31:M$[178]"CLOSECLOSEMARCH"
  46. 260 [139]M[178]4[167]NN[178]30:M$[178]"CLOSECLOSEAPRIL"
  47. 270 [139]M[178]5[167]NN[178]31:M$[178]"CLOSECLOSECLOSEMAY"
  48. 280 [139]M[178]6[167]NN[178]30:M$[178]"CLOSECLOSEJUNE"
  49. 290 [139]M[178]7[167]NN[178]31:M$[178]"CLOSECLOSEJULY"
  50. 300 [139]M[178]8[167]NN[178]31:M$[178]"CLOSEAUGUST"
  51. 310 [139]M[178]9[167]NN[178]30:M$[178]"SEPTEMBER"
  52. 320 [139]M[178]10[167]NN[178]31:M$[178]"OCTOBER"
  53. 330 [139]M[178]11[167]NN[178]30:M$[178]"NOVEMBER"
  54. 340 [139]M[178]12[167]NN[178]31:M$[178]"DECEMBER"
  55. 350 Q[178]F
  56. 360 [139]F[178]0[167]Q[178]7
  57. 370 [153][163]7)""Y:[153][163]25)"SYS"M$""
  58. 380 [153][163]4)"SCONT"[163]9)"M"[163]14)"T"[163]19)"W"[163]24)"T"[163]29)"FPRINT#"
  59. 385 [153][163]34)"ONSOPEN"
  60. 460 XX[178]3:SS[178]0
  61. 470 [137]740
  62. 480 [129]L[178]1[164]NN
  63. 490 [141]640
  64. 500 [139]Q[173]7[178][181](Q[173]7)[167]690
  65. 510 Q[178]Q[170]1:[130]
  66. 520 [139]A$[179][177]"A"[167]542
  67. 530 [161]C$:[139]C$[179][177]"S"[175]C$[179][177]"\"[167]540
  68. 531 [139]C$[178]"S"[167]50
  69. 532 [139]C$[178]"\"[167][138]0
  70. 540 [129]R[178]0[164]505[172]I:[130]:[151]54273,17:[151]54272,37:[151]54276,17
  71. 541 [129]T[178]1[164]240:[130]:[151]54276,16:[129]R[178]0[164]160[172]I:[130]:[137]570
  72. 542 [161]B$:[139]B$[178]""[167]542
  73. 544 [139]B$[178]"S"[167]50
  74. 545 [139]B$[178]" "[167]570
  75. 546 [139]B$[178]"\"[167][138]0
  76. 547 [137]542
  77. 570 [153]"LOAD":M[178]M[170]1
  78. 575 [139]M[178]3[167][153]"LOAD":[141]1000
  79. 580 [139]M[177]12[167]M[178]1:Y[178]Y[170]1
  80. 590 [139]Y[178]Y1[167]50
  81. 600 F[178]F[170]NN
  82. 610 F[178]F[171]7
  83. 620 [139]F[177]7[167]610
  84. 630 [137]210
  85. 640 [139]SS[178]1[167]660
  86. 650 [139]L[177]9[167]SS[178]1:XX[178]XX[171]1
  87. 660 [153][163]XX)L;
  88. 670 XX[178]XX[170]5
  89. 680 [142]
  90. 690 [153]"
  91. 700 XX=3
  92. 710 SS=0
  93. 720 Q=0
  94. 730 GOTO510
  95. 740 IFF=1THEN780
  96. 750 IFF=0THENF=7
  97. 760 FORPP=2TOF
  98. 770 XX=XX+5:NEXT
  99. 780 GOTO480
  100. 810 IFM=2THENNN=28:M$="FEBRUARY"
  101. 820 GOTO250
  102. 1000 C=1+INT(Y/100)
  103. 1010 CA=INT(3*C/4)-12
  104. 1020 CB=1+Y-19*INT(Y/19)
  105. 1030 CC=INT((8*C+5)/25)-5-CA
  106. 1040 CD=INT(5*Y/4)-10-CA
  107. 1050 CE=11*CB+20+CC-30*INT((11*CB+20+CC)/30)
  108. 1060 IFCE<>25THEN1080
  109. 1070 IFCB>11THENCE=CE+1
  110. 1080 IFCE=24THENCE=CE+1
  111. 1090 EA=44-CE
  112. 1100 IFEA<21THENEA=EA+30
  113. 1110 EA=7-CD+7*INT((EA+CD)/7)
  114. 1119 POKE53280,14:POKE53281,4
  115. 1120 IFEA<=31THENPRINT"[158]EASTER:":PRINTTAB(10)"MARCH"EA
  116. 1125 IFEA<=31THEN1140
  117. 1130 PRINT"[158]EASTER:":PRINTTAB(11)"APRIL"EA-31
  118. 1140 FORR=0TO5000:NEXT:POKE53280,10:POKE53281,0:PRINT"[147][159]":RETURN
  119. 2000 POKE53280,10:POKE53281,0
  120. 2001 PRINT"[147]ELAPSED DAYS BETWEEN TWO DATES":FORR=0TO1000:NEXT
  121. 2002 DIMA(450)
  122. 2003 FORI=1TO12:READA(I):NEXT
  123. 2004 FORI=101TO112:READA(I):NEXT
  124. 2005 DATA0,31,59,90,120,151,181,212,243,273,304,334
  125. 2006 DATA31,28,31,30,31,30,31,31,30,31,30,31
  126. 2007 PRINT"[147][159]
  127. 2008 [153]" LATTER DATE:SYS":[133]"   MNTH(1-12)";M:[133]"CLOSECLOSECLOSEDAY";D:[133]"CLOSECLOSECLOSEYR.";Y
  128. 2009 A[178]M:B[178]D:C[178]Y
  129. 2010 [141]2028
  130. 2012 Z[178]T
  131. 2013 [153]"OPEN EARLIER DATE:SYS":[133]"   MNTH(1-12)";M:[133]"CLOSECLOSECLOSEDAY";D:[133]"   YR";Y
  132. 2014 E[178]M:F[178]D:G[178]Y
  133. 2016 [139]G[177]C[167]2007
  134. 2017 [139]A[179]E[175]C[178]G[167]2007
  135. 2018 [139]A[177]12[167]2007
  136. 2019 [139]B[177]31[167]2007
  137. 2020 [139]E[177]12[167]2007
  138. 2021 [139]F[177]31[167]2007
  139. 2022 [141]2028
  140. 2024 V[178]T[171]Z
  141. 2025 V[178][182](V)
  142. 2026 [137]2047
  143. 2028 H[178]Y[171]1800
  144. 2029 I[178][181](H[173]4)
  145. 2030 J[178][181](I[173]25)
  146. 2031 L[178][181]((H[170]200)[173]400)
  147. 2032 [139]I[172]4[179][177]H[167]2036
  148. 2034 [139]J[172]100[179][177]H[167]2036
  149. 2035 [139]L[172]400[171]200[179][177]H[167]2036
  150. 2036 T[178]365[172]H[170]I[170]L[171]J[171]1
  151. 2037 T[178]T[170]A(M)[170]D[171]1
  152. 2038 [139]M[179]3[167]2040
  153. 2040 [139][181](H[173]4)[179][177]H[173]4[167]2045
  154. 2042 [139][181](C[173]400)[179][177]C[173]400[176][181](G[173]400)[179][177]G[173]400[167]2045
  155. 2043 [139]M[177]2[167]2045
  156. 2044 T[178]T[171]1
  157. 2045 N[178]T[171]7[172][181](T[173]7)
  158. 2046 [142]
  159. 2047 [151]53280,2:[151]53281,1:[153]"LOAD"V"DAYS FROM"E","F","G
  160. 2048 [153]"TO"A","B","C
  161. 2049 [161]I$:[139]I$[178]""[167]2049
  162. 2050 [139]I$[178]" "[167][153]"LOADOPEN":[151]53280,10:[151]53281,0:[138]2001
  163. 2051 [139]I$[178]"\"[167][138]0
  164. 2052 [137]2049
  165. 3000 [151]53280,10:[151]53281,0:[153]"LOAD"[163]6)"A COIN-TOSS DECISION MAKER
  166. 3001 PRINT"[153] TYPE D [153]FOR A 'YES/NO'[160]DECISION"
  167. 3002 PRINT"OTHERS[159] CAUSE A HEADS-TAILS                 DISTRIBUTION COUNT.
  168. 3003 [161]D$:[139]D$[178]""[167]3003
  169. 3004 [153][163]18)""D$:[133]"SYSHOW MANY 'FLIPS'";N:[153]"LOAD
  170. 3005 C=0:IFN<1THEN3020
  171. 3007 FORX=1TON:F=INT(2*RND(3*RND(0))+1)
  172. 3008 IFX/100=INT(X/100)THENPRINTX"FLIPS"TAB(26)X-C"TAILS
  173. 3009 [139]F[179][177]1[167][151]53281,6:[153][163]18)"H":C[178]C[170]1:[137]3012
  174. 3011 [139]F[179][177]2[167][151]53281,14:[153][163]20)"T
  175. 3012 NEXT
  176. 3013 IFD$="D"THENPRINT"[147]":GOTO3017
  177. 3015 POKE53280,2:POKE53281,1:PRINT"[147]"TAB(8)C"HEADS IN"N"'FLIPS'":GOTO3020
  178. 3017 IFC/7=INT(C/7)THENPOKE53281,1:PRINTTAB(13)"DECIDE LATER":GOTO3020
  179. 3018 IFC/2<>INT(C/2)THENPOKE53281,0:PRINT"GO AHEAD !![160][160]DO IT.":GOTO3020
  180. 3019 IFC/2=INT(C/2)THENPOKE53281,2:PRINTTAB(12)"[144]NO!![160]DON'T DO IT !
  181. 3020 [129]R[178]0[164]1111:[130]:[153][163]4)"[PRESS SPACE-BAR TO BEGIN ANEW]
  182. 3021 GETF$:IFF$=""THEN3021
  183. 3022 IFF$=" "THENPOKE53280,10:POKE53281,0:PRINT"[147]":RUN3001
  184. 3023 IFF$="\"THENRUN0
  185. 3024 GOTO3021
  186. 4000 POKE53280,10:POKE53281,0
  187. 4001 PRINT"[147]"TAB(10)"COMPOUND INTEREST":INPUT"[153]START WITH[156] (OMIT $) ";P
  188. 4002 INPUT"[153]INTEREST/YEAR[156] (OMIT %) ";I
  189. 4003 INPUT"[153]HOW MANY TIMES IS IT PAID/YEAR ";N
  190. 4004 INPUT"[153]FOR HOW MANY YEARS ";Y
  191. 4005 PRINT""P"[159]WILL INCREASE TO:"
  192. 4006 PRINT"[158]"P*((1+I/(100*N))^(Y*N))
  193. 4007 PRINT"[129][PRESS SPACE BAR TO BEGIN ANEW]
  194. 4008 [161]C$:[139]C$[178]""[167]4008
  195. 4009 [139]C$[178]" "[167][138]4001
  196. 4010 [139]C$[178]"\"[167][138]0
  197. 4011 [137]4008
  198. 5000 [151]53280,10:[151]53281,0
  199. 5001 [153]"LOAD"[163]10)"COMPOUND INTEREST"
  200. 5002 [153]"PRINT  IN HOW MANY YEARS WOULD A STATED SUM  BE A SPECIFIC AMOUNT IF IT"
  201. 5003 [153]"WERE DEPOSITED AT COMPOUND INTEREST ?OPEN"
  202. 5004 [133]"STARTING SUMCLR (OMIT $) ";P
  203. 5005 [133]"OPENINTEREST/YEARCLR (OMIT %) ";I
  204. 5006 [133]"OPENPAID HOW MANY TIMES/YEAR ";N
  205. 5007 [133]"CONTDESIRED AMOUNTCLR (OMIT $) ";A
  206. 5008 L[178]1[170][181](([188](A)[171][188](P))[173](N[172][188](1[170]I[173](100[172]N))))
  207. 5009 [153]"OPEN"P"SYSWILL BECONT"A"SYSIN"L"YEARS"
  208. 5010 [153]"PRINT#[PRESS SPACE-BAR TO BEGIN ANEW]
  209. 5011 GETC$:IFC$=""THEN5011
  210. 5012 IFC$=" "THENRUN5001
  211. 5013 IFC$="\"THENRUN0
  212. 5014 GOTO5011
  213.